home *** CD-ROM | disk | FTP | other *** search
-
- /*
- * SPA_MODF.C
- *
- * (c)Copyright 1992-1997 Obvious Implementations Corp. Redistribution and
- * use is allowed under the terms of the DICE-LICENSE FILE,
- * DICE-LICENSE.TXT.
- *
- * float frac = fmodf(float value, float *ip);
- *
- * (converts to either _ffpmodf() or _spmodf()), this file converts
- * to _spmodf().
- */
-
- #ifdef _FFP_FLOAT
- #undef _FFP_FLOAT
- #endif
-
- #ifndef _SP_FLOAT
- #define _SP_FLOAT
- #endif
-
- #include <math.h>
-
- float
- fmodf(value, ip)
- float value;
- float *ip;
- {
- if (value >= 0.0)
- *ip = ffloor(value);
- else
- *ip = fceil(value);
- return(value - *ip);
- }
-
-